COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	% Documentation: READ MAXTEX.
C00006 ENDMK
C⊗;
% Documentation: READ MAXTEX.
\input kermac.tex[1,3]


	% Set date in the form \date{November 20}, \date{January 1\th{st}}, etc.
\def\date#1{\gdef\todate{#1}}


	% Choose between \english and \spanish:
\let\jnkeng=\english
\let\jnkspa=\espanol
\def\english{\jnkeng\gdef\datefmt{\todate, 1981}}
\def\espanol{\jnkspa\gdef\datefmt{\todate{} de 1981}}


	% Define letter layout styles:
\def\stanford{\let\jaddr=\saddr\let\jlogo=\stanlogo\job}
\def\personal{\titlepage
	{\baselineskip 9pt\:r\ctrcol{\paddr}}
	\vskip 30pt
	\rjustline{\teniu\datefmt\hskip 20pt}
	\vskip .5vu}
	% Use this for other letter-heads, as done in \stanford (READ MAXTEX)
\def\job{\titlepage
	 \hbox to size{\eightpoint
		$\vcenter{\hbox{\jlogo}}$
		$\vcenter{\vbox{\halign{##\hfil\cr\jaddr\cr}}}$
		\hfill
		$\vcenter{\vbox{\halign{\hfil ##\cr\whoswho\cr}}}$}
	 \vskip .5vu
	 \rjustline{\datefmt\hskip 60pt}
	 \vskip .5vu}


	% Destinatary (READ MAXTEX); \to{name\cr\sreet\cr\city}, etc.
\def\to#1{\save0\lftcol{#1}\save1\copy0\box0\yskip}
	% Similar, but #1 will be used in headings:
\def\idto#1#2{\gdef\hdid{#1}\to{#1\cr #2}}


	% Sign in one of several ways: \sign{Sincerely,\cr\sskip\fullname} or
 	%   \sign{\sskip\me}; where \me, \fullname should be defined by you.
	%   Or simply: \sign{My Name}.
\def\sign#1{\penalty 1000000
	\vskip .5vu
	\penalty 1000000
	\rjustline{\vbox{\halign{##\cr #1\cr}}\hskip 100pt\null}}


	% Say \fin to end letter and to produce envelope sticker in a new page
\def\fin{\endpage\boxit{\box1}\bye}



	% May be used inside \to,\idto,\whoswho,\paddr,\jaddr, and \sign:
\def\skip{\halskip{10 pt plus 2.5pt}}
\def\sskip{\halskip{40 pt plus 10 pt}}




% FOR internal use:
\def\hdid{}
\def\titpage{\box5}
\def\thepage{\cbotnum\vfill\box5}
\def\cbotnum{\moveright 20pt\vbox to \btmnrspace{\eightpoint
			\top{\hbox to \hpagesize{\null\hskip-20pt\hdid\hfill\datefmt
					   \hbox to 20pt{\rt{\count0}}}} }}
\def\Me#1{\sign{\sskip #1}}
\def\whoswho{}